home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / vol6n13.arc / MOUSEKEY.BAS < prev    next >
BASIC Source File  |  1987-07-03  |  3KB  |  55 lines
  1. 100 REM -- BASIC PROGRAM TO CREATE MOUSEKEY.COM
  2. 110 OPEN "MOUSEKEY.COM" AS #1 LEN = 1
  3. 120 FIELD #1,1 AS A$
  4. 130 CHECKSUM = 0
  5. 140 FOR I = 1 TO  35 
  6. 150    LINESUM = 0
  7. 160    FOR J = 1 TO 8
  8. 170       READ BYTE
  9. 180       CHECKSUM = CHECKSUM + BYTE
  10. 190       LINESUM = LINESUM + BYTE
  11. 200       IF (BYTE < 256) THEN LSET A$ = CHR$(BYTE)
  12. 210       PUT #1
  13. 220    NEXT J
  14. 230    READ LINECHECK
  15. 240    IF LINECHECK <> LINESUM THEN PRINT "Error in Line";280 + 10 * I
  16. 250 NEXT I
  17. 260 CLOSE
  18. 270 IF CHECKSUM = 24292 THEN PRINT "Successful Completion!" : END
  19. 280 PRINT "COM file is not valid!" : END
  20. 290 DATA    233,   213,     0,    67,   111,   112,   121,   114,   971
  21. 300 DATA    105,   103,   104,   116,    32,    49,    57,    56,   622
  22. 310 DATA     55,    32,    90,   105,   102,   102,    45,    68,   599
  23. 320 DATA     97,   118,   105,   115,    32,    80,   117,    98,   762
  24. 330 DATA    108,   105,   115,   104,   105,   110,   103,    32,   782
  25. 340 DATA     67,   111,    46,    87,   114,   105,   116,   116,   762
  26. 350 DATA    101,   110,    32,    98,   121,    32,    74,   101,   669
  27. 360 DATA    102,   102,    32,    80,   114,   111,   115,   105,   761
  28. 370 DATA    115,   101,     3,     0,     0,     0,     0,    77,   296
  29. 380 DATA     75,    80,    72,   169,     2,     0,   117,    86,   601
  30. 390 DATA    169,     8,     0,   117,    87,   184,    11,     0,   576
  31. 400 DATA    205,    51,    46,   199,     6,    67,     1,     0,   575
  32. 410 DATA      0,    46,   199,     6,    69,     1,     2,     0,   323
  33. 420 DATA     50,   192,   131,   249,     0,   125,     7,    46,   800
  34. 430 DATA    255,     6,    67,     1,   247,   217,   131,   250,  1174
  35. 440 DATA      0,   125,     7,    46,   255,     6,    69,     1,   509
  36. 450 DATA    247,   218,    46,   139,    30,    67,     1,    59,   807
  37. 460 DATA    202,   115,    13,    46,   139,    30,    69,     1,   615
  38. 470 DATA     46,   254,    14,    66,     1,   116,     1,   203,   701
  39. 480 DATA     46,   198,     6,    66,     1,     3,    46,   138,   504
  40. 490 DATA    167,    71,     1,   235,    10,   144,   184,     0,   812
  41. 500 DATA     73,   235,     4,   144,   184,     0,    81,   187,   908
  42. 510 DATA     64,     0,   142,   219,   250,   139,    30,    28,   872
  43. 520 DATA      0,   139,   211,   131,   194,     2,    59,    22,   758
  44. 530 DATA    130,     0,   117,     4,   139,    22,   128,     0,   540
  45. 540 DATA     59,    22,    26,     0,   116,     8,   137,     7,   375
  46. 550 DATA    139,   218,   137,    30,    28,     0,   251,   203,  1006
  47. 560 DATA    235,    25,   144,    13,    10,    77,   111,   117,   732
  48. 570 DATA    115,   101,    32,    78,   111,   116,    32,    73,   658
  49. 580 DATA    110,   115,   116,    97,   108,   108,   101,   100,   855
  50. 590 DATA     13,    10,    36,   184,     0,     0,   205,    51,   499
  51. 600 DATA     11,   192,   117,     9,   180,     9,   141,    22,   681
  52. 610 DATA    219,     1,   205,    33,   195,   184,    12,     0,   849
  53. 620 DATA    185,    11,     0,   186,    75,     1,   205,    51,   714
  54. 630 DATA    141,    22,   216,     1,   205,    39,     0,     0,   624
  55.